ClrText Locate 2,1,"www.jeuxcasio.com" Locate 7,3,"presente" Locate 8,5,"pisseur" Locate 6,7,"[Press EXE]" Do:LpWhile Getkey 31 ClrGraph ClrText "La gourde est pleine?" Deg 0 A~Z Lbl 0 Lbl 7 ClrText ViewWindow -5,95,0,-3,62,0 F-Line 93,0,93,16 F-Line 93,16,90,16 F-Line 90,16,90,0 F-Line 87,0,82,6 F-Line 80,7,90,7 F-Line 95,35,85,35 F-Line 85,35,85,40 F-Line 85,40,95,40 F-Line 87,35,87,26 F-Line 85,26,90,26 F-Line 90,26,90,23 F-Line 90,23,85,23 F-Line 85,23,85,26 Vertical 95 Horizontal 62 Int 71Ran# S 12 T F-Line S-3,T-12,S-1,T-6 F-Line S-1,T-6,S-3,T-1 F-Line S-3,T-1,S-3,T+7 F-Line S-3,T+7,S-5,T+2 F-Line S-5,T+2,S-3,T-1 F-Line S-3,T-1,S,T F-Line S-5,T+7,S-1,T+7 F-Line S-1,T+7,S-1,T+11 F-Line S-1,T+11,S-5,T+11 F-Line S-5,T+11,S-5,T+7 Plot S-2,T+10 Plot S-2,T+8 Plot S-3,T+8 Line ClrText "Angle (deg)"? A "For ce"? U U 10 U Ucos A V Usin A W Lbl 1 W-0.1 W S+V S T+W T Plot S,T T 6 T 0 S 82 S 89 Goto 3 S 89 S<91 T 6 T<15 -V V S>95 Goto 6 S<1 Goto Y T>62 Goto Z T<0 Goto 2 Goto 1 Lbl Z ClrText "Tu prends une douche?" Goto 9 Lbl 2 ClrText "Amateur arrete de salir le carrelage" Goto 9 Lbl 6 ClrText "Qui c'est qui lave hein? incapable" Goto 9 Lbl Y ClrText "Tu pisse par derriere t'es pas normal toi!" Goto 9 Lbl 3 W<0 Goto 4 Goto 5 Lbl 4 ClrText "Et maintenant il faut tirer la chasse" Isz G Lbl 5 ClrText "Score" G Goto 7 Lbl 9 ClrText "Score final" G G=10 Or G=9 Goto Q G=8 Or G=7 Or G=6 Goto R G=2 Or G=1 Or G=0 Goto S ClrText "Ca soulage" ClrGraph Stop Lbl Q ClrText "C'est bien,tu sais pisser" ClrGraph Stop Lbl R ClrText "Tu peux faire mieux" ClrGraph Stop Lbl S ClrText "T'es nul prends des cours!"
|